* lisp/simple.el (activate-mark): Run activate-mark-hook.

Fixes: debbugs:13027

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 419c95114c83fb5cc2300616b230895ddd01cac9..8e77ddc95dd05039ce2fb693b5f724b8446dd900 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-29  Kelly Dean  <kellydeanch@yahoo.com>  (tiny change)
+
+       * simple.el (activate-mark): Run activate-mark-hook (bug#13027).
+
 2012-11-29  Glenn Morris  <rgm@gnu.org>
 
        * files.el (hack-dir-local-variables): Warn if try to set

diff --git a/lisp/simple.el b/lisp/simple.el
index 5867561da267d9a5aa0ebfa582dbdc57bdabfd89..ecd02545b418d175fbbbef45b7643f501abaa72b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4012,7 +4012,8 @@ run `deactivate-mark-hook'."
   (when (mark t)
     (setq mark-active t)
     (unless transient-mark-mode
-      (setq transient-mark-mode 'lambda))))
+      (setq transient-mark-mode 'lambda))
+    (run-hooks 'activate-mark-hook)))
 
 (defun set-mark (pos)
   "Set this buffer's mark to POS.  Don't use this function!